object Form1: TForm1
  Left = 385
  Top = 486
  Width = 1305
  Height = 675
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel
    Left = 176
    Top = 88
    Width = 16
    Height = 13
    Caption = 'lbl1'
  end
  object lbl2: TLabel
    Left = 448
    Top = 72
    Width = 16
    Height = 13
    Caption = 'lbl2'
  end
  object Memo1: TMemo
    Left = 704
    Top = 40
    Width = 361
    Height = 297
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object tcpsrvr1: TTcpServer
    LocalPort = '51015'
    OnAccept = tcpsrvr1Accept
    Left = 232
    Top = 176
  end
  object tcpsrvr2: TTcpServer
    LocalPort = '80'
    OnAccept = tcpsrvr2Accept
    Left = 456
    Top = 184
  end
  object idtcpsrvr1: TIdTCPServer
    Active = True
    Bindings = <>
    CommandHandlers = <>
    DefaultPort = 51015
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    OnConnect = idtcpsrvr1Connect
    OnExecute = idtcpsrvr1Execute
    OnDisconnect = idtcpsrvr1Disconnect
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    Left = 176
    Top = 336
  end
  object idtcpsrvr2: TIdTCPServer
    Active = True
    Bindings = <>
    CommandHandlers = <>
    DefaultPort = 80
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    OnConnect = idtcpsrvr2Connect
    OnExecute = idtcpsrvr2Execute
    OnDisconnect = idtcpsrvr2Disconnect
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    Left = 432
    Top = 336
  end
end
